Column

Map of Local Authorities in England, by 2011 Rural Classification

Column

2011 Local Authorities

---
title: "Local Authority RUC"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}

library(flexdashboard)

# Data Tidying
library(tidyverse)
library(readr)
library(janitor)

# Working with Spatial Data
library(sf)
library(rmapshaper)

# Embedding HTML Widgets
library(htmltools)
library(DT)
library(leaflet)

```

```{r data-tidying, include = F}
# Import LA .shp file and LA ruc

LA_shp <- st_read("Data/Local_Authority_Districts_(December_2011)_Boundaries_EW_BFC.shp") %>%
  rmapshaper::ms_simplify()

LA_ruc <- read_csv("Data/RUC_LAD_2011_EN_LU.csv") %>%
  clean_names() %>%
  select(lad11cd, ruc11, broad_ruc11) %>%
  mutate(ruc11 = factor(ruc11, levels = c("Mainly Rural (rural including hub towns >=80%)",
                                          "Largely Rural (rural including hub towns 50-79%)",
                                          "Urban with Significant Rural (rural including hub towns 26-49%)",
                                          "Urban with City and Town",
                                          "Urban with Minor Conurbation",
                                          "Urban with Major Conurbation")),
         broad_ruc11 = factor(broad_ruc11, levels = c("Predominantly Rural",
                                                      "Urban with Significant Rural",
                                                      "Predominantly Urban")))

LA_ruc_shp <- left_join(LA_shp, LA_ruc, by = "lad11cd") %>%
  st_transform(4326) # Convert from a UK Projection (epsg = 27700) to a Global Projection (epsg = 4326)

```



Column {data-width=500}
-----------------------------------------------------------------------

### Map of Local Authorities in England, by 2011 Rural Classification

```{r leaflet-plot}
# plot leaflet choropleth

palette <- c("#003300", "#00FF00", "#CCCCCC", "#00CCFF", "#3366FF", "#0000FF")

factpal <- colorFactor(palette, LA_ruc_shp$ruc11)

labels <- sprintf(
  "%s
%s", LA_ruc_shp$lad11nm, LA_ruc_shp$ruc11 ) %>% lapply(htmltools::HTML) LA_ruc_shp %>% leaflet() %>% addTiles() %>% addPolygons( stroke = T, smoothFactor = 1, fillOpacity = 0.7, fillColor = ~factpal(ruc11), color = "white", weight = 2, dashArray = "1", highlight = highlightOptions( weight = 5, color = "#666", dashArray = "", fillOpacity = 0.7, bringToFront = TRUE), label = labels, labelOptions = labelOptions( style = list("font-weight" = "normal", padding = "3px 8px"), textsize = "15px", direction = "auto")) ``` Column {data-width=500} ----------------------------------------------------------------------- ### 2011 Local Authorities ```{r} LA_ruc_shp %>% st_drop_geometry() %>% mutate(st_areasha = scales::comma(st_areasha / 1000000, accuracy = 1)) %>% select(lad11cd, lad11nm, ruc11, broad_ruc11, st_areasha) %>% DT::datatable(colnames = c("LA Code 2011", "LA Name", "Rural Classification (RUC)", "Broad RUC", "Area (km^2)"), rownames = F, options = list(scrollY="70vh", pageLength = 10)) ```